(deftemplate pacient
    (multislot nume)
    (slot temperatura)
    (slot culoarepiele)
    (slot durere)
    (slot greata)
    )

(assert (pacient (nume Alex Addam)(temperatura 37)(culoarepiele alba)(durere stomac)(greata da)))
(assert (pacient (nume Dalia Miclea)(temperatura 39)(culoarepiele alba)(durere cap)(greata nu)))
(assert (pacient (nume Dan Ilie)(temperatura 38)(culoarepiele roz)(durere cap)(greata da)))
(assert (pacient (nume Maria Zoia)(temperatura 37)(culoarepiele alba)(durere cap)(greata nu)))
(assert (pacient (nume Demian Marin)(temperatura 40)(culoarepiele rosie)(durere cap)(greata da)))
    
(defrule rule1
    (pacient (nume $? ?n ?p)(temperatura ?temp &37)(culoarepiele ?cp &alba)(durere ?d &stomac)(greata ?g &da))
    =>
    (printout t "Persoana cu numele: "?n ,"  si prenumele: "?p" sufera de ulcer." crlf)
    )

(defrule rule2
    (pacient (nume $? ?n ?p)(temperatura ?temp &37)(culoarepiele ?cp &alba)(durere ?d &cap)(greata ?g &nu))
    =>
    (printout t "Persoana cu numele: "?n ,"  si prenumele: "?p" sufera de migrene." crlf)
    )

(defrule rule3
    (pacient (nume $? ?n ?p)(temperatura ?temp &39)(culoarepiele ?cp &alba)(durere ?d &cap)(greata ?g &nu))
    =>
    (printout t "Persoana cu numele: "?n ,"  si prenumele: "?p" sufera de gripa." crlf)
    )

(defrule rule4
    (pacient (nume $? ?n ?p)(temperatura ?temp &38)(culoarepiele ?cp &roz)(durere ?d &cap)(greata ?g &da))
    =>
    (printout t "Persoana cu numele: "?n ,"  si prenumele: "?p" sufera de alergie." crlf)
    )

(defrule rule5
    (pacient (nume $? ?n ?p)(temperatura ?temp &40)(culoarepiele ?cp &rosie)(durere ?d &cap)(greata ?g &da))
    =>
    (printout t "Persoana cu numele: "?n ,"  si prenumele: "?p" sufera de insolatie." crlf)
    )




    (run)